home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Sample Code / Newton Sample Code 1.1 / Communications / Slurp-3 / Project Data < prev    next >
Encoding:
Text File  |  1994-03-08  |  965 b   |  38 lines  |  [TEXT/ttxt]
  1. // © Copyright 1993-94 Apple Computer, Inc, All Rights Reserved
  2.  
  3. constant kAppSymbol := '|Slurp:PIEDTS|;
  4. constant kPackageName := '|Slurp:PIEDTS|;
  5. constant kAppObject := '["soup","soups"];
  6.  
  7. constant kSoupName := kPackageName;
  8. constant kSoupIndexes := '[/* {structure: slot, path: name.first, type: string} */];
  9.  
  10.  
  11. func zGetSound(name, file)
  12. begin;
  13.    local rf := OpenResFileX(file);
  14.    local snd := {sndFrameType: 'simpleSound,
  15.      samples: GetSndAsSamples(name),
  16.      samplingRate: 22026.43172,
  17.      dataType: 1,
  18.      compressionType: 0};
  19.    CloseResFileX(rf);
  20.    return snd;
  21. end;
  22.  
  23. func zGetSound11(name, file)
  24. begin;
  25.    local rf := OpenResFileX(file);
  26.    local snd := {sndFrameType: 'simpleSound,
  27.      samples: GetSndAsSamplesRate11KHz(name),
  28.      samplingRate: 11013.21586,
  29.      dataType: 1,
  30.      compressionType: 0};
  31.    CloseResFileX(rf);
  32.    return snd;
  33. end;
  34.  
  35. homeDir := "Beeld:Desktop Folder:New Slurp:";
  36.  
  37. theSlurpSound := zGetSound11("Slurping", "Slurping");
  38.